package com.qd.panda.service.integral;

import cn.hutool.core.math.Money;
import com.baomidou.mybatisplus.core.conditions.query.QueryWrapper;
import com.baomidou.mybatisplus.core.metadata.IPage;
import com.baomidou.mybatisplus.extension.plugins.pagination.Page;
import com.cdqidi.constant.ConstantDto;
import com.cdqidi.db.BaseService;
import com.cdqidi.dto.ApiResult;
import com.cdqidi.dto.CacheKey;
import com.cdqidi.exception.ApiException;
import com.cdqidi.util.RedisTemplateUtil;
import com.qd.common.panda.domain.entity.integral.UserIntegralDTO;
import com.qd.common.panda.domain.entity.integral.UserIntegralDetailDTO;
import com.qd.panda.mapper.integral.UserIntegralMapper;
import com.qd.panda.model.UserIntegral;
import com.qd.panda.model.UserIntegralDetail;
import com.qd.panda.service.stroke.BigDecimalUtil;
import lombok.RequiredArgsConstructor;
import lombok.extern.slf4j.Slf4j;
import org.redisson.api.RLock;
import org.redisson.api.RedissonClient;
import org.springframework.stereotype.Service;
import org.springframework.transaction.annotation.Transactional;
import org.springframework.util.StringUtils;

import java.math.BigDecimal;
import java.time.LocalDateTime;
import java.util.Arrays;
import java.util.Collections;
import java.util.List;
import java.util.Optional;
import java.util.concurrent.TimeUnit;

import static java.util.stream.Collectors.toList;

/**
 * 个人积分
 *
 * @author sjk
 */
@RequiredArgsConstructor
@Service
@Slf4j
public class UserIntegralService extends BaseService<UserIntegralMapper, UserIntegral> {

    private static final String PREFIX_ID = "panda_user_integral_userId_{0}";

    private final RedisTemplateUtil<UserIntegral> redisTemplateUtil;

    private final UserIntegralDetailService userIntegralDetailService;

    private final RedissonClient redissonClient;

    /**
     * 保存
     *
     * @param dto 页面对象
     * @return 页面对象
     */
    @Transactional(rollbackFor = Exception.class)
    public UserIntegralDTO save(UserIntegralDTO dto) {
        final UserIntegral model = dtoToModel(dto);
        try {
            if (super.save(model)) {
                return modelToDto(model);
            }
            throw new ApiException("添加失败");
        } finally {
            clearCache(model);
            model.freeData();
        }
    }

    /**
     * 修改
     *
     * @param dto 页面对象
     * @return 页面对象
     */
    @Transactional(rollbackFor = Exception.class)
    public UserIntegralDTO update(UserIntegralDTO dto) {
        final UserIntegral historyModel = Optional.ofNullable(getById(dto.getUserId())).orElseThrow(() -> new ApiException("ID不存在,不能更新"));
        final UserIntegral model = dtoToModel(dto);
        try {
            if (super.updateById(model)) {
                return modelToDto(model);
            }
            throw new ApiException("更新失败");
        } finally {
            clearCache(historyModel);
            historyModel.freeData();
            model.freeData();
        }
    }

    /**
     * 删除，单个
     *
     * @param userId 主键
     */
    @Transactional(rollbackFor = Exception.class)
    public void removeById(String userId) {
        final UserIntegral model = Optional.ofNullable(getById(userId)).orElseThrow(() -> new ApiException("数据不存在,不能删除"));
        try {
            if (!super.removeById(userId)) {
                throw new ApiException("删除失败");
            }
        } finally {
            clearCache(model);
            model.freeData();
        }
    }

    /**
     * 根据传入对象构建查询参数，判断是否存在
     *
     * @param dto 参数
     * @return 存在为true
     */
    @Transactional(readOnly = true)
    public Boolean isExists(UserIntegralDTO dto) {
        final QueryWrapper<UserIntegral> queryWrapper = createQueryWrapper(dto);
        final boolean exists = super.count(queryWrapper) > 0;
        queryWrapper.clear();
        return exists;
    }

    /**
     * 根据主键判断数据是否存在
     *
     * @param userId 主键
     * @return 存在为true
     */
    @Transactional(readOnly = true)
    public Boolean isExistsById(String userId) {
        boolean exists = false;
        if (StringUtils.hasLength(userId)) {
            final UserIntegral model = getById(userId);
            exists = (null != model);
            if (exists) {
                model.freeData();
            }
        }
        return exists;
    }

    /**
     * 根据主键获取数据
     *
     * @param userId 主键
     * @return 单条记录
     */
    @Transactional(readOnly = true)
    public UserIntegral getById(String userId) {
        final String key = RedisTemplateUtil.getRedisCacheKey(PREFIX_ID, userId);
        return redisTemplateUtil.get(new CacheKey().setKey(key).setTimeout(ConstantDto.REDIS_TIME_OUT_DAY), () -> super.getById(userId), UserIntegral.class);
    }

    /**
     * 根据主键获取数据
     *
     * @param userId 主键
     * @return 单条记录，转换成页面对象
     */
    @Transactional(readOnly = true)
    public UserIntegralDTO getByIdDto(String userId) {
        return Optional.ofNullable(getById(userId)).map(this::modelToDto).orElse(null);
    }

    /**
     * 根据条件查询单条数据
     *
     * @param dto 查询参数
     * @return 单条记录
     */
    @Transactional(readOnly = true)
    public UserIntegral getOne(UserIntegralDTO dto) {
        final QueryWrapper<UserIntegral> queryWrapper = createQueryWrapper(dto);
        UserIntegral model = super.getOne(queryWrapper);
        queryWrapper.clear();
        return model;
    }

    /**
     * 根据条件查询单条数据
     *
     * @param dto 查询参数
     * @return 单条记录，转换成页面对象
     */
    @Transactional(readOnly = true)
    public UserIntegralDTO getOneDto(UserIntegralDTO dto) {
        return Optional.ofNullable(getOne(dto)).map(this::modelToDto).orElse(null);
    }

    /**
     * 根据条件查询列表数据
     *
     * @param dto 查询参数
     * @return 列表数据
     */
    @Transactional(readOnly = true)
    public List<UserIntegral> getList(UserIntegralDTO dto) {
        final QueryWrapper<UserIntegral> queryWrapper = createQueryWrapper(dto);
        final List<UserIntegral> list = super.list(queryWrapper);
        queryWrapper.clear();
        return list;
    }

    /**
     * 根据条件查询列表数据
     *
     * @param dto 查询参数
     * @return 列表数据，转换成页面对象
     */
    @Transactional(readOnly = true)
    public List<UserIntegralDTO> getListDto(UserIntegralDTO dto) {
        return modelToDtoList(getList(dto));
    }

    /**
     * 分页数据
     *
     * @param page 分页对象
     * @param dto  查询参数
     * @return 分页信息
     */
    @Transactional(readOnly = true)
    public IPage<UserIntegralDTO> page(Page<UserIntegral> page, UserIntegralDTO dto) {
        final QueryWrapper<UserIntegral> queryWrapper = createQueryWrapper(dto, "ui.");
        final IPage<UserIntegralDTO> iPage = baseMapper.page(page, queryWrapper);
        queryWrapper.clear();
        return iPage;
    }


    /**
     * 清空缓存
     *
     * @param model 数据库对象
     */
    public void clearCache(UserIntegral model) {
        if (null == model) {
            return;
        }
        String key = RedisTemplateUtil.getRedisCacheKey(PREFIX_ID, model.getUserId());
        redisTemplateUtil.deleteByKey(key);
    }

    /**
     * 数据库对象转页面对象
     *
     * @param model 数据库对象
     * @return 页面对象
     */
    public UserIntegralDTO modelToDto(UserIntegral model) {
        if (null == model) {
            return null;
        }
        final UserIntegralDTO dto = new UserIntegralDTO();
        dto.setUserId(model.getUserId());
        dto.setIntegral(model.getIntegral());
        dto.setAddTime(model.getAddTime());
        dto.setUpdateTime(model.getUpdateTime());
        buildDisplay(dto);
        return dto;
    }

    /**
     * 页面对象转数据库对象
     *
     * @param dto 页面对象
     * @return 数据库对象
     */
    public UserIntegral dtoToModel(UserIntegralDTO dto) {
        if (null == dto) {
            return null;
        }
        final UserIntegral model = new UserIntegral();
        model.setUserId(dto.getUserId());
        model.setIntegral(dto.getIntegral());
        model.setAddTime(dto.getAddTime());
        model.setUpdateTime(dto.getUpdateTime());
        return model;
    }

    /**
     * 码表转换
     *
     * @param dto 页面对象
     */
    public void buildDisplay(UserIntegralDTO dto) {

    }

    /**
     * 数据库对象转页面对象
     *
     * @param list 数据库对象
     * @return 页面对象
     */
    public List<UserIntegralDTO> modelToDtoList(List<UserIntegral> list) {
        return Optional.ofNullable(list).orElse(Collections.emptyList()).stream().map(this::modelToDto).collect(toList());
    }

    /**
     * 页面对象转数据库对象
     *
     * @param list 页面对象
     * @return 数据库对象
     */
    public List<UserIntegral> dtoToModelList(List<UserIntegralDTO> list) {
        return Optional.ofNullable(list).orElse(Collections.emptyList()).stream().map(this::dtoToModel).collect(toList());
    }

    /**
     * 拼装查询参数，除了主键的其他字段会自动加入进来
     *
     * @param dto 查询参数，不为空的属性会被自动加入
     */
    public QueryWrapper<UserIntegral> createQueryWrapper(UserIntegralDTO dto) {
        return createQueryWrapper(dto, "");
    }

    /**
     * 拼装查询参数，除了主键的其他字段会自动加入进来
     *
     * @param dto        查询参数，不为空的属性会被自动加入
     * @param tableAlias 表别名
     */
    public QueryWrapper<UserIntegral> createQueryWrapper(UserIntegralDTO dto, String tableAlias) {
        final QueryWrapper<UserIntegral> queryWrapper = new QueryWrapper<>();
        if (null != dto) {
            if (StringUtils.hasLength(tableAlias)) {
                if (tableAlias.charAt(tableAlias.length() - 1) != '.') {
                    tableAlias += ".";
                }
            }
            if (StringUtils.hasLength(dto.getUserId())) {
                queryWrapper.eq(tableAlias + "user_id", dto.getUserId());
            }
        }
        return queryWrapper;
    }

    /**
     * 批量检查主键在数据库中是否存在
     *
     * @param ids 主键集合
     */
    public List<UserIntegral> checkIds(List<String> ids) {
        if (null == ids || ids.isEmpty()) {
            throw new ApiException("ids不能为空");
        }
        final List<UserIntegral> list = super.listByIds(ids);
        if (list.isEmpty()) {
            throw new ApiException("ids不存在" + Arrays.toString(ids.toArray()));
        }
        if (ids.size() == list.size()) {
            return list;
        }
        List<String> dbIds = list.stream().map(UserIntegral::getUserId).collect(toList());
        final List<String> notExistsList = ids.stream().filter(id -> !dbIds.contains(id)).collect(toList());
        dbIds.clear();
        if (!notExistsList.isEmpty()) {
            throw new ApiException("ids不存在" + Arrays.toString(notExistsList.toArray()));
        }
        return list;
    }

    /**
     * 积分
     *
     * @param userId 用户ID
     * @return 用户总积分
     */
    @Transactional(readOnly = true)
    public BigDecimal getIntegral(String userId) {
        return BigDecimalUtil.buildDefaultScale(Optional.ofNullable(getById(userId)).map(UserIntegral::getIntegral).orElse(new BigDecimal(0)));
    }

    /**
     * 删除积分
     * @param did 积分明细主键
     */
    @Transactional(rollbackFor = Exception.class)
    public void deleteIntegral(String did) {
        Optional.ofNullable(userIntegralDetailService.getById(did)).ifPresent(userIntegralDetail -> {
            RLock lock = redissonClient.getLock(userIntegralDetail.getUserId() + "_Integral");
            try {
                try {
                    boolean res = lock.tryLock(30, 10, TimeUnit.SECONDS);
                    if (res) {
                        deleteIntegral(userIntegralDetail);
                    } else {
                        throw new ApiException(ApiResult.error());
                    }
                } catch (InterruptedException e) {
                    Thread.currentThread().interrupt();
                    log.error("获得锁失败", e);
                    throw new ApiException(ApiResult.error());
                }
            } finally {
                lock.unlock();
            }
        });

    }

    /**
     * 删除积分
     * @param userIntegralDetail 积分明细对象
     */
    @Transactional(rollbackFor = Exception.class)
    public void deleteIntegral(UserIntegralDetail userIntegralDetail) {
        LocalDateTime now = LocalDateTime.now();
        UserIntegralDTO integralDTO = getByIdDto(userIntegralDetail.getUserId());
        boolean isAdd = true;
        if (null == integralDTO) {
            integralDTO = new UserIntegralDTO();
            integralDTO.setIntegral(new BigDecimal("0"));
            integralDTO.setAddTime(now);
        } else {
            integralDTO.setUpdateTime(now);
            isAdd = false;
        }
        //总计分
        Money allIntegralDec = new Money(integralDTO.getIntegral()).add(new Money(userIntegralDetail.getIntegral()));
        integralDTO.setIntegral(BigDecimalUtil.buildDefaultScale(allIntegralDec.getAmount(), 2));
        integralDTO.setUserId(userIntegralDetail.getUserId());
        if (isAdd) {
            save(integralDTO);
        } else {
            update(integralDTO);
        }
        userIntegralDetailService.removeById(userIntegralDetail.getDid());
        integralDTO.freeData();
    }

    /**
     * 保存积分
     *
     * @param userId    用户ID
     * @param integral  积分
     * @param note      备注
     * @param pointType 积分类型
     * @param status    0消费 1获得
     * @param bid       业务ID
     */
    @Transactional(rollbackFor = Exception.class)
    public void saveIntegral(String userId, BigDecimal integral, String note, String pointType, int status, String bid) {
        RLock lock = redissonClient.getLock(userId + "_Integral");
        try {
            try {
                boolean res = lock.tryLock(30, 10, TimeUnit.SECONDS);
                if (res) {
                    saveUserIntegral(userId, integral, note, pointType, status, bid);
                } else {
                    throw new ApiException(ApiResult.error());
                }
            } catch (InterruptedException e) {
                Thread.currentThread().interrupt();
                log.error("获得锁失败", e);
                throw new ApiException(ApiResult.error());
            }
        } finally {
            lock.unlock();
        }
    }

    /**
     * 保存积分
     *
     * @param userId    用户ID
     * @param integral  积分
     * @param note      说明
     * @param pointType 积分类型
     * @param status    0消费 1获得
     * @param bid       业务ID
     */
    @Transactional(rollbackFor = Exception.class)
    public void saveUserIntegral(String userId, BigDecimal integral, String note, String pointType, int status, String bid) {
        UserIntegralDetail userIntegralDetail = userIntegralDetailService.getUniqueByBidAndStatus(bid, status);
        if (null != userIntegralDetail) {
            log.error("当前积分已经处理,这里不在处理,userId: {},积分: {},note: {},pointType: {},status: {},bid: {}", userId, integral, note, pointType, status, bid);
            userIntegralDetail.freeData();
            return;
        }
        LocalDateTime now = LocalDateTime.now();
        UserIntegralDTO integralDTO = getByIdDto(userId);
        boolean isAdd = true;
        if (null == integralDTO) {
            integralDTO = new UserIntegralDTO();
            integralDTO.setIntegral(new BigDecimal("0"));
            integralDTO.setAddTime(now);
        } else {
            integralDTO.setUpdateTime(now);
            isAdd = false;
        }
        //总计分
        Money allIntegralDec = new Money(integralDTO.getIntegral());
        //单次积分
        final Money integralDec = new Money(integral);
        if (status == 0) {
            allIntegralDec = allIntegralDec.subtract(integralDec);
        } else {
            allIntegralDec = allIntegralDec.add(integralDec);
        }
        integralDTO.setIntegral(BigDecimalUtil.buildDefaultScale(allIntegralDec.getAmount(), 2));
        integralDTO.setUserId(userId);
        if (isAdd) {
            save(integralDTO);
        } else {
            update(integralDTO);
        }
        UserIntegralDetailDTO userIntegralDetailDTO = new UserIntegralDetailDTO();
        userIntegralDetailDTO.setIntegral(integral);
        userIntegralDetailDTO.setUserId(userId);
        userIntegralDetailDTO.setAddTime(now);
        userIntegralDetailDTO.setNote(note);
        userIntegralDetailDTO.setPointType(pointType);
        userIntegralDetailDTO.setStatus(status);
        userIntegralDetailDTO.setBid(bid);
        userIntegralDetailService.save(userIntegralDetailDTO);

        integralDTO.freeData();
        userIntegralDetailDTO.freeData();
    }
}